home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TSR / PPTSR10 / BEEPER.PAS next >
Pascal/Delphi Source File  |  1993-02-12  |  731b  |  42 lines
  1. (*
  2. Program  : beeper.pas
  3. Function : Example TSR program. Beeps when hotkey is hit.
  4. From     : DOS International, June 1992
  5. Modified : P.Peters
  6. Date     : June 1992
  7. *)
  8. {$m $1000,0,0}
  9. {$r-,s-,x+}
  10. uses crt,tsr;
  11.  
  12. procedure beeper; far;
  13. var i : byte;
  14. begin
  15.   for i := 1 to 8 do begin
  16.     sound(300*i);
  17.     delay(20);
  18.     nosound;
  19.   end;
  20. end;
  21.  
  22. procedure dummy; far;
  23. begin
  24. end;
  25.  
  26. procedure paramcheck; far;
  27. begin
  28.   writeln('Invalid switch or parameter');
  29.   writeln;
  30.   writeln('Usage:');
  31.   writeln('  Beeper [Option]');
  32.   writeln('Options:');
  33.   writeln('  /u : Remove Tsr');
  34.   halt;
  35. end;
  36.  
  37.  
  38. begin
  39.   writeln('BEEPER TSR-testprogram'^m^j);
  40.   tsrinstall('Alt-F',$2100,$c1,beeper,dummy,paramcheck);
  41. end.
  42.